瑞士 地圖 

library(ggmap)
## Loading required package: ggplot2
library(mapproj)
## Loading required package: maps
map_1 <- get_map(location = 'Swiss', zoom = 7, language = "zh-TW")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=Swiss&zoom=7&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false
## Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=Swiss&sensor=false
ggmap(map_1)

瑞士 伯恩位置 經度:7.44744 緯度:46.94809

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 10, language = "zh-TW")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=10&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false
ggmap(map)

只要將maptpe改變即可形成各種不同的地圖類型

瑞士 伯恩 道路地圖 (1)

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 10, language = "zh-TW", maptype = "roadmap")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=10&size=640x640&scale=2&maptype=roadmap&language=zh-TW&sensor=false
ggmap(map)

瑞士 伯恩 道路地圖 (2)

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 15, language = "zh-TW", maptype = "roadmap")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=roadmap&language=zh-TW&sensor=false
ggmap(map)

瑞士 伯恩 衛星地圖

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 15, language = "zh-TW", maptype = "satellite")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=satellite&language=zh-TW&sensor=false
ggmap(map)

瑞士 伯恩 衛星+道路地圖

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 15, language = "zh-TW", maptype = "hybrid")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=hybrid&language=zh-TW&sensor=false
ggmap(map)

瑞士 伯恩 黑白地圖

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 15, language = "zh-TW", maptype = "toner-lite")
## maptype = "toner-lite" is only available with source = "stamen".
## resetting to source = "stamen"...
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=terrain&sensor=false
## Map from URL : http://tile.stamen.com/toner-lite/15/17060/11531.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17061/11531.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17062/11531.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17063/11531.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17060/11532.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17061/11532.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17062/11532.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17063/11532.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17060/11533.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17061/11533.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17062/11533.png
## Map from URL : http://tile.stamen.com/toner-lite/15/17063/11533.png
ggmap(map)

提亮地圖

map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 20, language = "zh-TW")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=20&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false
ggmap(map, darken = c(0.5, "white"))

暗化地圖

map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 10, language = "zh-TW")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=10&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false
ggmap(map, darken = 0.5)